home *** CD-ROM | disk | FTP | other *** search
/ Merciful 1 / Merciful - Disc 1.iso / software / m / multi_media_demo_maker / multimediademomakerv1.0.dms / multimediademomakerv1.0.adf / sources / fliege.S < prev    next >
Text File  |  1990-11-13  |  3KB  |  126 lines
  1. start:
  2. dc.l    "VECT"
  3. start2:
  4. dc.l fliegePOINTS-start2,fliegeFLAECHEN-start2
  5. dc.w 500
  6. dc.w 0,$44f,$c,$8,$aaa,$888,$666,$f00
  7. dc.w 1
  8. dc.w 0
  9. dc.l fliegeinit-start2
  10. dc.l fliege1-start2
  11.  
  12. fliegeinit:
  13.     lea fliegep1(pc),a1
  14.     move.w #0,(a1)
  15.     rts
  16. fliegep1:dc.w 0
  17.  
  18. fliege1:lea sini(pc),a1
  19.     move.w fliegep1(pc),d0
  20.     addq.w #4,d0
  21.     cmp.w #siniend-sini,d0
  22.     blo ohoh
  23.     moveq #0,d0
  24. ohoh:    lea fliegep1(pc),a2
  25.     move.w d0,(a2)
  26.     lea (a1,d0.w),a1
  27.  
  28.     lea fliegep(pc),a2
  29.     lea fliege2p(pc),a3
  30.     move.w (a1),12(a2)
  31.     move.w 4(a1),6(a2)
  32.     move.w 8(a1),12*2(a2)
  33.     move.w 12(a1),12*3(a2)
  34.     move.w 16(a1),12*4(a2)
  35.     move.w 20(a1),12*5(a2)
  36.     move.w (a1),(a3)
  37.     move.w 4(a1),18(a3)
  38.     move.w 8(a1),18+12(a3)
  39.     move.w 12(a1),18+[12*2](a3)
  40.     move.w 16(a1),18+[12*3](a3)
  41.     move.w 20(a1),18+[12*4](a3)
  42.     rts
  43. sini:    ;Sinustabelle
  44. dc.w 43 , 47 , 51 , 55 , 59 , 62 , 65 
  45. dc.w 68 , 71 , 73 , 75 , 77 , 78 , 79 , 79 
  46. dc.w 79 , 79 , 78 , 77 , 76 , 74 , 72 , 69 
  47. dc.w 67 , 63 , 60 , 57 , 53 , 49 , 45 , 41 
  48. dc.w 37 , 33 , 29 , 25 , 22 , 18 , 15 , 12 
  49. dc.w 9 , 7 , 5 , 3 , 1 , 0 , 0 , 0 
  50. dc.w 0 , 0 , 1 , 2 , 4 , 6 , 9 , 11 
  51. dc.w 14 , 17 , 21 , 25 , 28 , 32 , 36 , 40 
  52. siniend:
  53. dc.w 43 , 47 , 51 , 55 , 59 , 62 , 65 
  54. dc.w 68 , 71 , 73 , 75 , 77 , 78 , 79 , 79 
  55. dc.w 79 , 79 , 78 , 77 , 76 , 74 , 72 , 69 
  56. dc.w 67 , 63 , 60 , 57 , 53 , 49 , 45 , 41 
  57. dc.w 37 , 33 , 29 , 25 , 22 , 18 , 15 , 12 
  58. dc.w 9 , 7 , 5 , 3 , 1 , 0 , 0 , 0 
  59. dc.w 0 , 0 , 1 , 2 , 4 , 6 , 9 , 11 
  60. dc.w 14 , 17 , 21 , 25 , 28 , 32 , 36 , 40 
  61.  
  62. fliegePOINTS:
  63. dc.w 36
  64. dc.w -20,-90,40
  65. dc.w 20,-90,40
  66. dc.w 20,10,40
  67. dc.w -20,10,40
  68. dc.w -10,-60,30
  69. dc.w 10,-60,30
  70. dc.w 10,0,30
  71. dc.w -10,0,30
  72. dc.w -10,-60,50
  73. dc.w 10,-60,50
  74. dc.w 10,0,50
  75. dc.w -10,0,50
  76. dc.w 20,-50
  77. fliegep:dc.w 40
  78. dc.w 80,-50,40
  79. dc.w 60,-60,40
  80. dc.w 20,-60,40
  81. dc.w 90,-40,40
  82. dc.w 20,-40,40
  83. dc.w 90,-30,40
  84. dc.w 20,-30,40
  85. dc.w 80,-20,40
  86. dc.w 20,-20,40
  87. dc.w 60,-10,40
  88. dc.w 20,-10,40
  89. dc.w -60,-60
  90. fliege2p:dc.w 40
  91. dc.w -20,-60,40
  92. dc.w -20,-50,40
  93. dc.w -80,-50,40
  94. dc.w -20,-40,40
  95. dc.w -90,-40,40
  96. dc.w -20,-30,40
  97. dc.w -90,-30,40
  98. dc.w -20,-20,40
  99. dc.w -80,-20,40
  100. dc.w -20,-10,40
  101. dc.w -60,-10,40
  102.  
  103. fliegeFLAECHEN:
  104. dc.w 19
  105. dc.w 4,1,4,5,6,7,4
  106. dc.w 4,1,8,11,10,9,8
  107. dc.w 4,2,4,0,1,5,4
  108. dc.w 4,3,5,1,2,6,5
  109. dc.w 4,2,6,2,3,7,6
  110. dc.w 4,3,7,3,0,4,7
  111. dc.w 4,3,8,9,1,0,8
  112. dc.w 4,2,9,10,2,1,9
  113. dc.w 4,3,10,11,3,2,10
  114. dc.w 4,2,11,8,0,3,11
  115. dc.w $1004,4,12,13,14,15,12
  116. dc.w $1004,5,12,13,16,17,12
  117. dc.w $1004,4,17,16,18,19,17
  118. dc.w $1004,5,19,18,20,21,19
  119. dc.w $1004,4,21,20,22,23,21
  120. dc.w $1004,5,24,25,26,27,24
  121. dc.w $1004,4,27,26,28,29,27
  122. dc.w $1004,5,29,28,30,31,29
  123. dc.w $1004,4,31,30,32,33,31
  124. dc.w $1004,5,33,32,34,35,33
  125. end:
  126.